home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / mathx30.exe / FINANCE.APL < prev    next >
Text File  |  1991-07-27  |  19KB  |  608 lines
  1. z''=info:z'''=int((z''-int(z''/10000)*10000)/1000):if z'''<>1}2
  2. | FINANCE.APL, Copyright 1991 by David Denker |
  3. | Box 115, Isanti, Mn. 55040 |
  4. dsp n" Sorry, the FINANCE.APL file will not work with MATHXR! "
  5. wait10:quit
  6. #2
  7. Z'''=INT(Z''*.0001):IF Z'''=>300}3
  8. DSP nn; Sorry, this file must be used with MATHX V3.00 or greater!;n
  9. wait20:quit
  10. #3
  11. WIND BB1BF15B14F0Z
  12. over
  13. WIND T1Z:WLCC B6F15
  14. title= FINANCE PROGRAMS
  15. h'''=1
  16. i=sloc:if i=0}1
  17. if i>64}}if i<91}}i=i+32:if i>96}}if i<123}}k=i-97:call8:goto4
  18. #1
  19. digr6:digl6:boff:CALL5:xoff:aon:cls:WLCC L8
  20. menuu I; FINANCE MENU: 
  21.  ;!A;mortization table. (can be printed)
  22.  ;!B;alance of loan payoff.
  23.  ;!C;ompound interest
  24.  ;!E;ffective earnings percentage rate.
  25.  ;!I;nformation on selections . . .
  26.  ;!L;oan interest rate. (from No. of payments and amount) 
  27.  ;!P;ayments. (from Int. rate, Loan value & No. payments)
  28.  ;!Q;uit.
  29.  ;!S;avings table. (can be printed);x
  30. j=mlvl:if j=0}9
  31. #4
  32. on(j)g{100,600,610,150,500,200,300,9,400}:QUIT
  33. #5:HEAD B0F13"  Select by the PICK LETTER or use MOUSE or  CURSOR keys."
  34. ret
  35. #8:j=data k{1,2,3,0,4,0,0,0,5,0,0,6,0,0,0,7,8,0,9,0,0,0,0,0,0,0}:ret
  36. #9:quit
  37. #40
  38. poff:dsp n; Do you want a printout? (Y/N) ;:$p=inp{805}
  39. if $p=;Y;}41,if $p=;YES;}41:ret
  40. #41
  41. pon:dsp n; Is the printer on? (Y/N) ;:$p=inp{806}
  42. if $p=;Y;}r:if $p=;YES;}r:poff:ret
  43. #50
  44. hoff:cls:ret
  45. #79:woff
  46. #80
  47. dsp nn; "M"enu, "R"edo, else quit! ;:i'=kyin:cls
  48. if i'=77}1:if i'=109}1:if i'=82}4:if i'=114}4:quit
  49. #90
  50. i'=-1:gos92
  51. DSP n; Enter interest rate %: ;:i'=inp{800}
  52. if i'=-1}r:if i'<0}91:i'=i'*.01
  53. dsp n; Enter total number of payments: ;:t'=inp{801}
  54. if t'<1}91
  55. dsp n; Enter number of payments per year: ;:n''=inp{802}
  56. if n''<1}91
  57. dsp n; Enter loan value: ;:v'=inp{803}
  58. if v'=<0}91
  59. p'=v'/((1-((1+i'/n'')^-t'))/(i'/n''))
  60. hoff:ret
  61. #91
  62. i'=-2:hoff:ret
  63. #92:head ; Hit the F1 key for help.;:ret
  64. #100:call50:XOFF
  65. DSP NN; AMORTIZATION TABLE:;N
  66. call90:if i'=-1}1:if i'=-2}510:call40
  67. n''=1:y''=1:r''=v':p''=0:i''=0:p'''=0:i'''=0
  68. digl7:digr2:n'=1
  69. head ; Hit ESC to quit table display and printing!;
  70. dprn nn; Monthly payment = ;(p');
  71.  
  72.  Payment  Amount to   Amount to      Principal      Interest      Principal
  73.   number  Principal   Interest        to date        to date      remaining
  74. ;n
  75. #103
  76. k''=kyck:if k''=27}1
  77. if y''=y'''}104:digr0:digl3:dprn; Year;(y'')n:y'''=y''
  78. #104
  79. digr0:digl5:dprn (n'):n'=n'+1:n''=n''+1
  80. digl7:digr2
  81. i''=r''*i'/12:p''=p'-i'':p'''=p'''+p'':i'''=i'''+i'':r''=r''-p''
  82. digl5
  83. dprn(p'')(i'')
  84. digl8:dprn(p''')(i''')(r'')n
  85. if n''=13}}y''=y''+1:if n''=13}}n''=1
  86. if n'<t'+1}103
  87. goto80
  88. #150
  89. call50:s'=-99:xoff:call92
  90. dsp n; EFFECTIVE EARNINGS RATE:;
  91. dsp nn; Enter starting balance:;:s'=inp{807}
  92. if s'=-99}1:if s'=0}520:if s'<0}520
  93. dsp n; Enter ending balance:  ;:e'=inp{808}
  94. if e'<0}520
  95. dsp n; Enter deposits made:   ;:d'=inp{809}
  96. if d'<0}520
  97. dsp n; Enter No. of days involved: (Yr.=365) ;:y'=inp{810}
  98. if y'=<0}520:hoff
  99. m'=e'-s'-d':i=m'/s':c'=4
  100. #151
  101. m'=e'-s'-d'-d'/2*i:i=m'/s':c'=c'-1:if c'<>0}151
  102. digr2:digl4
  103. dsp n;
  104.  Approximate Effective Earnings Percentage Rate = ;(i*100);%
  105.  Approximate Effective  Yearly  Percentage Rate = ;(i/y'*365*100);%;n
  106. goto80
  107. #200
  108. call50:n'=0:xoff:call92
  109. DSP N; LOAN INTEREST RATE:;N
  110. dsp n; Enter total number of payments: ;:n'=inp{801}
  111. if n'<0}530:if n'=0}1
  112. dsp n; Enter number of payments per year: ;:n''=inp{802}
  113. if n''=<0}530
  114. dsp n; Enter amount of each payment: ;:p'=inp{811}
  115. t'=p':if p'=<0}530
  116. dsp n; Enter loan amount: ;:p''=inp{803}
  117. if p''=<0}530:c'=5:hoff
  118. #201
  119. i'=(n''*2*(p'*n'-p''))/(p''*(n'+1))
  120. if c'=0}205:c'=c'-1
  121. p'''=p''/((1-((1+i'/n'')^-n'))/(i'/n''))
  122. p'=p'-(p'''-t')*.58:goto201
  123. #205
  124. digr2:digl2:dprn nn; Approximate Loan interest rate = ;(i'*100);%;
  125. goto80
  126. #300
  127. digr2:digl7
  128. call50
  129. DSP NN; PAYMENTS for Loan:;N
  130. call90:if i'=-1}1:if i'=-2}540:digr2:hoff
  131. dsp nn; Monthly payment = ;(p')
  132. goto80
  133. #400
  134. xoff:digr2:koff:woff:b'=-1:gos92
  135. dsp n; SAVINGS ACCOUNT TABLE:;
  136. dsp nn; Enter starting balance: ;:b'=inp{812}
  137. if b'=-1}1:if b'<0}550
  138. dsp n; Enter interest rate: ;:i'=inp{800}
  139. if i'<0}550:i'=i'*.01
  140. dsp n; Enter number of years: ;:y''=inp{813}
  141. if y''<1}550
  142. head ; Select by the letter!  Hit the F1 key for help.;
  143. dsp n; Enter interest compound rate:
  144.    "Y"early
  145.    "S"emi-annually
  146.    "Q"uarterly
  147.    "M"onthly
  148.    "D"aily ;n
  149. #401:$r=inp(1){814}:i''=0
  150. if $r="Y"}}i''=1
  151. if $r="S"}}i''=2
  152. if $r="Q"}}i''=4
  153. if $r="M"}}i''=12
  154. if $r="D"}}i''=365
  155. if i''<>0}402:beep:dsp o" "o:goto401
  156. #402:
  157. i=i'/i''
  158. dsp n; Enter deposit rate:
  159.    "N"one
  160.    "Y"early
  161.    "M"onthly
  162.    "W"eekly ;n
  163. #403:$c=inp(1){814}:r'=0
  164. if $c="N"}}r'=400
  165. if $c="Y"}}r'=366
  166. if $c="M"}}r'=32
  167. if $c="W"}}r'=8
  168. if r'<>0}404:beep:dsp o" "o:goto403
  169. #404
  170. gos92
  171. c'=0:if $c="N"}407
  172. dsp n; Enter deposit amount: ;:c'=inp{815}
  173. if c'<0}550
  174. #405
  175. r''=0
  176. dsp n; Enter deposit inflation rate (percentage): ;:r''=inp{816}
  177. r''=r''*.01+1
  178. #407
  179. head ; Select by the letter!  Hit the F1 key for help.;
  180. dsp nn; Enter table print and/or display period:
  181.    "E"nding ballance only
  182.    "Y"early ballance
  183.    "M"onthly ballance
  184.    "W"eekly ballance ;n
  185. #410:$p=inp(1){814}:p'=0
  186. if $p="E"}}p'=400
  187. if $p="Y"}}p'=366
  188. if $p="M"}}p'=32
  189. if $p="W"}}p'=8
  190. if p'<>0}411:beep:dsp o" "o:goto410
  191. #411
  192. $p=;1 Week;:if p'=8}412
  193. $p=;1 Month;:if p'=32}412
  194. $p=;1 Year;
  195. #412:gos92:poff
  196. dsp n; Do you want a printout? (Y/N) ;:$a=inp(1){805}
  197. if $a<>"Y"}415
  198. dsp n; Is the printer on? (Y/N) ;:$a=inp(1){806}:if $a<>"Y"}415
  199. pon
  200. #415
  201. head ; Hit ESC to quit table display and printing!;
  202. i'''=0:c''=0:q'=91:y'=1:p''=1:m'=32:n'=1:x''=0:m'''=1:q'''=1:m''=1:q''=1
  203. t'=0:t''=0:d'=1:n''=1:n'''=1:b''=0:if p'=400}416
  204. dprn nn;
  205.  Starting Balance = ;(b');
  206.  Interest rate = ;(i'*100);%
  207.  Each period = ;$p;
  208.                                        Interest      Deposits
  209.  Period    Interest     Deposit        to date       to date        Balance;n
  210. goto420
  211. |  p''          i'''      c''        t'           t''          b' |
  212. #416
  213. dprn nn;
  214.  Starting Balance = ;(b');
  215.  Interest rate = ;(i'*100);%
  216.  
  217.         Total           Total           Ending
  218.        Interest        Deposits        Balance;n
  219. GOTO420
  220. #417
  221. z'=kyck:if z'=27}79
  222. if i''=365}449
  223. if i''=12}}if n'=m'}450
  224. if i''=4}}if n'=q'}450
  225. if i''=2}}if n'=182}450
  226. if i''=1}}if n'=366}450
  227. go421
  228. #420
  229. windd wr3wc12r3c32;
  230.  WORKING! ;
  231. #421
  232. if r'=n''}c452:if n'''=p'}c465
  233. if m'<>m''}422:m'''=m'''+1:if m'''=13}}m'''=1
  234. m'=data m'''{0,32,29,32,31,32,31,32,32,31,32,31,32}
  235. if p'>27}}if p'<33}}p'=m':m''=1
  236. #422
  237. if q'<>q''}424:q'''=q'''+1:if q'''=5}}q'''=1
  238. q'=data q'''{0,91,92,93,93}
  239. #424
  240. n'=n'+1:n''=n''+1:m''=m''+1:q''=q''+1:d'=d'+1:n'''=n'''+1
  241. if d'<>367}417:d'=2:n''=1:p''=1
  242. if n'''>365}}n'''=1:if y'=>y''}430:y'=y'+1:goto417
  243.  
  244. #430:woff:if p'=400}c470:goto80
  245.  
  246. #449
  247. b'=b'+b'':b''=0
  248. #450
  249. z'=b'*i+x'':b'=b'+z'+b'':i'''=i'''+z':n'=1:x''=0:b''=0:goto421
  250.  
  251. #452
  252. b''=b''+c':c''=c''+c':if i''=365}460
  253. if i''<>12}454:x'=m'-n':goto459
  254. #454
  255. if i''<>4}456:x'=q'-n':goto459
  256. #456
  257. if i''<>2}458:x'=182-n':goto459
  258. #458
  259. x'=366-n'
  260. #459
  261. x''=x''+x'*(i'/365)*c'
  262. #460
  263. n''=1:ret
  264. #465
  265. t'=t'+i''':t''=t''+c''
  266. if p''<>1}466:digl3:digr0:dprn; Year;(y')n
  267. #466
  268. woff
  269. digr0:digl2
  270. dprn (p'')
  271. digr2:digl8
  272. dprn(i'''):digl6
  273. dprn(c''):digl8
  274. dprn(t'):digl7
  275. dprn(t''):digl9
  276. dprn(b'+b'')n
  277. p''=p''+1:n'''=1:c''=0:i'''=0:c'=c'*r''
  278. windd
  279. ret
  280. #470
  281. t'=t'+i''':t''=t''+c''
  282. digr2:digl9:dprn (t')(t'')(b')n
  283. ret
  284. #500
  285. hoff:if h'''=0}502:h'''=0
  286. windd bb4bf15b14f0; DISCLAIMER: 
  287.     Even though I have tested all calculations
  288.  and  believe them to be accurate,  I  do  not
  289.  guarantee their accuracy.   Your  use  of the
  290.  information  provided  by  this program is at
  291.  your own risk.  If you are using this program
  292.  to make important decisions,  I  suggest  you
  293.  also consider contacting a financial planning 
  294.  professional.
  295. ;f4;    Hit any key or mouse button to continue.;X
  296. wait50
  297. #502
  298. call5:WLCC L8
  299. MENUU BB1BF15B14F0I; For INFORMATION on: 
  300.  ;!A;mortization table.
  301.  ;!B;alance of loan payoff.
  302.  ;!C;ompound interest.
  303.  ;!E;ffective earnings rate. 
  304.  ;!L;oan interest rate.
  305.  ;!P;ayments on loan.
  306.  ;!S;avings table.
  307.  E;!X;IT to main menu;X
  308. J=MLVL:on(j)g{510,555,560,520,530,540,550,1}:QUIT
  309. #510
  310. cls
  311. wind wr22wc78" Amortization table information: 
  312.  
  313.  The amortization table will need the following information:
  314.     Interest rate %              (for 10.5% enter 10.5)
  315.     Total number of payments     (for 3 years of monthly payments enter 36)
  316.     Number of payments per year  (for monthly payments enter 12)
  317.     Loan principal               (the amount of the loan)
  318.     Do you want a printout?      (if yes enter Y and hit the ENTER key)
  319.  Note:  Do not enter negitive numbers;  you will get this information.
  320.         In some cases entering 0 is also not allowed.
  321.  
  322.  From the above information, the amount of your payments will be shown at
  323.  the beginning of the table and will be printed and/or displayed with the
  324.  following information for each payment:
  325.     Payment number         (starting with number 1)
  326.     Amount to Principal    (the part of the payment going to principal)
  327.     Amount to Interest     (the part of the payment going to interest)
  328.     Principal to date      (total principal paid to date)
  329.     Interest to date       (total interest paid to date)
  330.     Principal remaining    (amount of loan remaining to be paid)
  331. "
  332. #515
  333. head; Hit any key or mouse button to return to the main menu. ;
  334. mon:i=kyin:moff:woff:goto1
  335. #520
  336. cls:wind wr22wc78" Effective earnings rate information: 
  337.  
  338.  Needs the following information.
  339.     Starting balance        (Do not start with 0! Any percentage of 0 is 0)
  340.     Ending balance          (including deposits)
  341.     Deposits made           (total deposits made between start and end)
  342.     Number of days involved (must be greater then 0, if 1 year enter 365)
  343.  Note:  Do not enter negitive numbers;  you will get this information.
  344.  
  345.  Returns the following information.
  346.     Effective earnings percentage rate  (one time earnings rate)
  347.     Effective yearly percentage rate    (non-compound rate per year)
  348.         (Effective earnings rate divided by years involved)
  349.  
  350.   Note:  The effective earnings rate is calculated assuming that all
  351.         deposits are made evenly throughout the time period involved.
  352.         If you do not make the deposits evenly, then I suggest you
  353.         leave the deposits out of the data and get your effective
  354.         earnings rate during the time periods between deposits.
  355.         This will give you the most accurate information.
  356. "nn:goto515
  357. #530
  358. cls:wind wr22wc78" Loan Interest Rate information: 
  359.  
  360.  Needs the following information.
  361.     Number of payments            (Total number of payments)
  362.     Number of payments each year  (If monthly enter 12)
  363.     Amount of each payment
  364.     Loan principal                (the amount of the loan)
  365.  Note:  Do not enter negitive numbers or 0;  you will get this information.
  366.  
  367.  Returns the loan annual interest rate.
  368. "nnnnnnnnnnn:goto515
  369. #540
  370. cls
  371. wind wr22wc78 " Loan Payments information: 
  372.  
  373.  Needs the following information:
  374.     Interest rate %              (for 10.5% enter 10.5)
  375.     Total number of payments     (for 3 yrs. of monthly payments enter 3*12)
  376.     Number of payments per year  (for monthly payments enter 12)
  377.     Loan principal               (the amount of the loan)
  378.  Note:  Do not enter negitive numbers;  you will get this information.
  379.         In some cases entering 0 is also not allowed.
  380.  
  381.  Returns the amount of each payment.
  382. "nnnnnnnnnn:goto515
  383. #550
  384. cls
  385. wind wr22wc78" Saving Table information: 
  386.  Needs the following information:
  387.     Starting Balance           (If none enter 0)
  388.     Interest rate              (For 6% enter 6)
  389.     Number of years            (The years to be calculated, 1 or more)
  390.     Compound rate              (Yearly, semi-annually, quarterly, monthly)
  391.     Deposit rate               (Yearly, monthly, weekly)
  392.     Deposit amount             (Amount each deposit will be, can be 0)
  393.     Deposit increase rate      (% increase in deposit per year, can be 0)
  394.     Print and/or display rate  (End balance only, yearly, monthly, weekly)
  395.     Do you want a printout?    (If yes enter Y and hit ENTER)
  396.  Note:  Do not enter negitive numbers;  you will get this information.
  397.  
  398.  Prints and/or Displays the following information: (or end balances only)
  399.     Year number                    (Starting with year 1)
  400.     Display period                 (Starts at 1 each year)
  401.     Amount of deposit per period   (Total made during this display period)
  402.     Amount of interest per period  (Total made during this display period)
  403.     Total deposit to date          (As of the end of the current period)
  404.     Total interest to date         (As of the end of the current period)
  405.     Balance per period             (As of the end of the current period)
  406. ":goto515
  407. #555
  408. cls:wind wr22wc78" Balance of loan information:
  409.  
  410.  Needs the following information.
  411.     Number of payments left       (Total number of payments left to pay)
  412.     Number of payments each year  (If monthly enter 12)
  413.     Amount of each payment
  414.     Loan interest rate            (For 8.5% enter 8.5)
  415.  Note:  Do not enter negitive numbers or 0;  you will get this information.
  416.  
  417.  Returns the Balance of Loan Payoff.
  418. "nnnnnnnnnnn:goto515
  419. #560
  420. cls:wind wr22wc78" Compound Interest information:
  421.  
  422.  Needs the following information.
  423.     Number of years involved      (Total number of years to calculate)
  424.     Times compounded per year     (If monthly enter 12)
  425.     Starting balance              (Starting value of the loan or account)
  426.     Yearly interest rate          (If 8.5% enter 8.5)
  427.  Note:  Do not enter negitive numbers or 0;  you will get this information.
  428.  
  429.  Returns the following information.
  430.     Compounded interest earned.
  431.     Interest earned plus principal.
  432. "nnnnnnnnnnn:goto515
  433. #600
  434. call50:n'=0:xoff:call92
  435. DSP N; BALANCE OF LOAN PAYOFF:;N
  436. dsp n; Enter total number of payments left: ;:n'=inp{804}
  437. if n'<0}555:if n'=0}1
  438. dsp n; Enter number of payments per year: ;:n''=inp{802}
  439. if n''=<0}555
  440. dsp n; Enter amount of each payment: ;:p'=inp{811}
  441. if p'=<0}555
  442. dsp n; Enter loan interest rate: ;:i''=inp{800}
  443. if i''=<0}555:hoff
  444. i''=i''/100
  445. p''=-P'*(1-((1+i''/n'')^n'))/(i''/n'')
  446. digr2:digl8:dprn nn; BALANCE OF LOAN PAYOFF = ;(p'')
  447. goto80
  448. #610
  449. call50:n'=0:xoff:call92
  450. DSP N; COMPOUND INTEREST:;N
  451. dsp n; Enter total number of years: ;:n'=inp{817}
  452. if n'<0}560:if n'=0}1
  453. dsp n; Enter number of times compounded per year: ;:n''=inp{818}
  454. if n''=<0}560
  455. dsp n; Enter starting balance: ;:p'=inp{819}
  456. if p'=<0}560
  457. dsp n; Enter yearly interest rate: ;:i''=inp{800}
  458. if i''=<0}560:hoff
  459. i''=i''/100
  460. p''=P'*(1+I''/N'')^(N'*N'')
  461. digr2:digl8:dprn nn; COMPOUND INTEREST = ;(p''-p')
  462. dprn n; PLUS PRINCIPAL    = ;(p'')
  463. goto80
  464. #800:windd ;
  465.  Enter the  interest rate  but do 
  466.  not enter the  %  character.  If
  467.  the interest rate is 10.5% enter
  468.  10.5 and hit the ENTER key.
  469.     Hit any key to continue.;X
  470. wait40:woff:quit
  471. #801:windd ;
  472.  Enter the total number of 
  473.  payments  over the length
  474.  of the loan.  If you make
  475.  monthly payments for four
  476.  years, enter 48 or 4*12.
  477.   Hit any key to continue.;X
  478. wait40:woff:quit
  479. #802:windd ;
  480.  Enter the number of payments 
  481.  you will make each year.  If
  482.  you  make  monthly payments,
  483.  enter 12.
  484.    Hit any key to continue.;X
  485. wait40:woff:quit
  486. #803:windd ;
  487.  Enter the total amount of 
  488.  the loan.
  489.   Hit any key to continue.;X
  490. wait40:woff:quit
  491. #804:windd ;
  492.  Enter the total number of 
  493.  payments left to  pay  on
  494.  the loan.   If  you  make
  495.  12 payments  per year and
  496.  have 5 years and 2 months
  497.  left to pay, enter 5*12+2
  498.  or 62.
  499.   Hit any key to continue.;X
  500. wait40:woff:quit
  501. #805:windd ;
  502.  If you want a printout on the printer, 
  503.  hit the Y key.   If not hit the N key.
  504.  If you want a printout,  make sure the
  505.  printer  is  turned  on  and  there is
  506.  paper in the printer.
  507.     Hit any key to continue.;X
  508. wait40:woff:quit
  509. #806:windd ;
  510.  If  the  printer  is  on  and ready to 
  511.  print, enter Y.  If not or you changed
  512.  your mind and do not want  a  printout
  513.  enter N, then hit the ENTER key.
  514.     Hit any key to continue.;X
  515. wait40:woff:quit
  516. #807:windd ;
  517.  Enter the  amount  you had in your 
  518.  account at the start of the period
  519.  you  want  to  know  the effective
  520.  earnings percentage rate for.   Do
  521.  not enter 0.  (100% of 0 is 0)
  522.     Hit any key to continue.;X
  523. wait40:woff:quit
  524. #808:windd ;
  525.  Enter the amount you had in your 
  526.  account at the end of the period
  527.  you want to know  the  effective
  528.  earnings rate for.
  529.     Hit any key to continue.;X
  530. wait40:woff:quit
  531. #809:windd ;
  532.  Enter  the  total amount of deposits made 
  533.  to your account  during  the  period  you
  534.  you want to know  the  effective earnings
  535.  rate for.
  536.     Hit any key to continue.;X
  537. wait40:woff:quit
  538. #810:windd ;
  539.  Enter  the  total  number of days between
  540.  the start and end of the earnings  period. 
  541.  If it was exactly one year, enter 365.
  542.     Hit any key to continue.;X
  543. wait40:woff:quit
  544. #811:windd ;
  545.  You should be making the same payment 
  546.  amount  each  loan pay period.  Enter
  547.  that amount here.
  548.     Hit any key to continue.;X
  549. wait40:woff:quit
  550. #812:windd ;
  551.  Enter the  amount  you  had in your 
  552.  account at the start of the  period
  553.  you want the savings table for.  If
  554.  you start with nothing, enter 0.
  555.     Hit any key to continue.;X
  556. wait40:woff:quit
  557. #813:windd ;
  558.  Enter the number of years you want 
  559.  the savings table  calculated for.
  560.  This must be in whole years.
  561.     Hit any key to continue.;X
  562. wait40:woff:quit
  563. #814:windd ;
  564.  Pick  from  the  selections given 
  565.  by entering the  first  character
  566.  of the selection you want to use.
  567.     Hit any key to continue.;X
  568. wait40:woff:quit
  569. #815:windd ;
  570.  Enter the amount of each deposit. 
  571.  This program uses the same amount
  572.  for all deposits made during  the
  573.  term of the savings table.  So if
  574.  you  are  going to enter $50 each
  575.  deposit period, enter 50 here.
  576.     Hit any key to continue.;X
  577. wait40:woff:quit
  578. #816:windd ;
  579.  Enter the rate you think your  deposits 
  580.  will  increase  for  inflation.  If you
  581.  think your deposit amount will increase
  582.  5%  each  year,  enter 5.   The deposit
  583.  amount  will  increased  by this amount
  584.  at the beginning of each year.
  585.     Hit any key to continue.;X
  586. wait40:woff:quit
  587. #817:windd ;
  588.  Enter the total number of years 
  589.  the  compound  interest will be
  590.  calculated for.   Do not  enter
  591.  fractions of a year.
  592.    Hit any key to continue.;X
  593. wait40:woff:quit
  594. #818:windd ;
  595.  Enter the number of times per 
  596.  year  the  interest  will  be
  597.  compounded.    If  compounded
  598.  monthly, enter 12.
  599.    Hit any key to continue.;X
  600. wait40:woff:quit
  601. #819:windd ;
  602.  Enter  the starting value of 
  603.  the account or loan you want
  604.  to compute interest on.   Do
  605.  not enter 0.
  606.    Hit any key to continue.;X
  607. wait 40:woff:quit
  608.